home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 001 / overfiler / !OverFiler / TestEmpty (.txt) < prev   
RISC OS BBC BASIC V Source  |  1994-10-15  |  809b  |  23 lines
  1.  >TestEmpty
  2.  Tests if a drive supports Empty detection
  3.  David G Jones,1994
  4.  Public Domain
  5.  "The aim of this little utility is to test whether a drive"
  6.  "can detect whether it is empty or not. Necessary for the"
  7.  "-Poll switch to work in OverFiler."
  8.  "Filing system name: ";fs$
  9.  "Drive number:       ";drive%
  10.  "Now just insert/remove a disc from the drive a few times"
  11.  "until we get some kind of concrete result, if none then"
  12.  "drive will not support Empty detection."
  13. Sequence% = 0
  14.  (Sequence% 
  15.  10) = 0 
  16.  ".";
  17.  fs$+"_MiscOp", 1, drive%, Sequence% 
  18.  ,,Sequence%, Result%
  19.  Result% > 15
  20.  Result% 
  21.  "Empty detection works!!!" 
  22.  "Sorry, Empty detection does not work for this drive..."
  23.